object frmAttachs: TfrmAttachs
  Left = 0
  Top = 0
  Width = 529
  Height = 144
  TabOrder = 0
  object vstAttachs: TVirtualStringTree
    Left = 16
    Top = 9
    Width = 477
    Height = 118
    Hint = #38468#20214#21015#34920
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Colors.FocusedSelectionColor = 13613489
    Colors.SelectionRectangleBlendColor = 13613489
    Colors.UnfocusedSelectionColor = 15396334
    Colors.UnfocusedSelectionBorderColor = 13751260
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Shell Dlg 2'
    Header.Font.Style = []
    Header.MainColumn = 1
    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
    Header.SortColumn = 0
    Header.Style = hsXPStyle
    HintMode = hmHintAndDefault
    Images = ilFiles
    LineStyle = lsSolid
    Margin = 2
    PopupMenu = popAttach
    TabOrder = 0
    TextMargin = 2
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoExpand, toAutoScroll, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
    TreeOptions.StringOptions = []
    OnChange = vstAttachsChange
    OnDblClick = vstAttachsDblClick
    OnGetText = vstAttachsGetText
    OnGetImageIndex = vstAttachsGetImageIndex
    OnGetNodeDataSize = vstAttachsGetNodeDataSize
    OnGetPopupMenu = vstAttachsGetPopupMenu
    OnHeaderClick = vstAttachsHeaderClick
    Columns = <
      item
        MinWidth = 100
        Position = 0
        Width = 197
        WideText = #25991#20214#21517
      end
      item
        MinWidth = 50
        Position = 1
        Width = 80
        WideText = #22823#23567
      end
      item
        MinWidth = 100
        Position = 2
        Width = 200
        WideText = #25551#36848
      end>
  end
  object popAttach: TPopupMenu
    Left = 64
    Top = 58
    object itemAdd: TMenuItem
      Caption = #28155#21152
      OnClick = itemAddClick
    end
    object itemDelete: TMenuItem
      Caption = #21024#38500
    end
    object itemSaveAs: TMenuItem
      Caption = #21478#23384#20026
    end
  end
  object odlgAttachs: TOpenDialog
    Left = 96
    Top = 58
  end
  object ilFiles: TImageList
    Left = 126
    Top = 58
  end
  object sdlgAttachs: TSaveDialog
    Left = 156
    Top = 58
  end
  object tblAttach: TDAMemDataTable
    RemoteUpdatesOptions = [ruoOnPost]
    Fields = <
      item
        Name = 'bpa_pid'
        DataType = datGuid
        Required = True
      end
      item
        Name = 'bpa_id'
        DataType = datGuid
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'bpa_filename'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bpa_ext'
        DataType = datString
        Size = 10
      end
      item
        Name = 'bpa_size'
        DataType = datInteger
      end
      item
        Name = 'bpa_desc'
        DataType = datString
        Size = 60
      end
      item
        Name = 'bpa_file'
        DataType = datBlob
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rdaAttachs
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'b_productattachment'
    IndexDefs = <>
    Left = 66
    Top = 28
  end
  object rdaAttachs: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = ClientDataModule.RemoteService
    GetDataCall.RemoteService = ClientDataModule.RemoteService
    UpdateDataCall.RemoteService = ClientDataModule.RemoteService
    GetScriptsCall.RemoteService = ClientDataModule.RemoteService
    RemoteService = ClientDataModule.RemoteService
    DataStreamer = ClientDataModule.DataStreamer
    Left = 96
    Top = 28
  end
end
